home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / libguide / myconvert.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-01  |  2KB  |  67 lines
  1. /*************************************************
  2.  * myConvert.rexx to split check1 to System dir  *
  3.  * V2.0 © Heiko Schröder 98/99                   *
  4.  *************************************************
  5.  * 2.0 - benutzt VersionWB                       *
  6.  * 1.2 - kontrolliert auch ..._020 usw           *
  7.  * 1.1 - Bug behoben, wenn kein Version String   *
  8.  *       gefunden wurde                          *
  9.  * 1.0 - erstes Release, um auch Files die nicht *
  10.  *       im Systempfad liegen, checken zu können *
  11.  *************************************************/
  12.  
  13. ende=0
  14. OPEN("ausgabe","ram:vwb_check","R")
  15.  
  16. filename=READLN("ausgabe")
  17. DO WHILE 1
  18.    x=READLN("ausgabe")
  19.    If POS("NAME", UPPER(x)) THEN DO
  20.       vwbname=x
  21.       LEAVE
  22.    End
  23.    If EOF("ausgabe") then LEAVE
  24. END
  25. Version=READLN("ausgabe")
  26. If EOF("ausgabe") THEN ende=1
  27.    ELSE Datum=READLN("ausgabe")
  28.  
  29. CLOSE("ausgabe")
  30.  
  31. /* Name ohne Verzeichnis */
  32. filename=DELSTR(filename,1,6)
  33. trennung=MAX(index(filename,":"),LASTPOS("/",filename))
  34. name=DELSTR(filename,1,trennung)
  35. poss=POS(".LIBRARY",UPPER(name))
  36. name=LEFT(name,poss+7)
  37. ADDRESS COMMAND '"SetEnv" filename='name
  38.  
  39. If ende=1 THEN DO
  40.    Version="0.0"
  41.    vwbname=name
  42.    Datum="??.??.??"
  43. END
  44. ELSE DO
  45.    Version=STRIP(DELSTR(version,1,9))
  46.    pos1=POS(" ",version); IF pos1~=0 THEN Version=DELSTR(version,pos1)
  47.    Datum=delstr(Datum,1,6)
  48. END
  49.  
  50. /* Wenn Version nicht zu ermitteln ist, dann auf 0.0 */
  51. IF version="" THEN version="0.0"
  52.  
  53. /* V39.0 in 39.0 umwandeln */
  54. IF POS("V",UPPER(version))~=0 THEN version=DELSTR(version,1,1)
  55. IF POS(",",UPPER(version))~=0 THEN do
  56.     possy=POS(",",UPPER(version))
  57.     version=DELSTR(version,possy,1)
  58. END
  59.  
  60. /* Wenn Version nicht zu ermitteln ist, dann auf 0.0 */
  61. IF DATATYPE(version,'N')=0 THEN version="0.0"
  62.  
  63. /* Variablen speichern */
  64. ADDRESS COMMAND '"SetEnv" checktemp1='name||" "||version
  65. ADDRESS COMMAND '"SetEnv" check1='name||" "||version
  66. EXIT
  67.